home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / edit / vedt.zip / COMPILE.VDM < prev    next >
Text File  |  1990-10-17  |  17KB  |  973 lines
  1. R*
  2. R*    Compiler Support Macro - Version 1.41
  3. R*        Last Change: 10/16/90
  4. R*    To save disk space, all comments have been stripped.  However, the
  5. R*    COMPILE.VDM supplied with the real VEDIT and VEDIT PLUS are fully
  6. R*    commented.
  7. R*
  8. ES 7 1
  9. ES 8 2
  10. ES 9 1
  11. ES 10 1
  12.  
  13. .waXS(92)
  14. +7YEA
  15. 0XS(101)
  16. "E XS(102)
  17. 21[ (.rt(#102)==2)[ 1XA(101) ] 1XA(102) ]
  18. Q101[
  19.     YA YEN
  20.     YT"Registers E - Y may contain files. Do you want to Save them?" YEN
  21.     YT"[S]ave files; [A]bandon files; [C]ancel macro : "
  22.     [ XK(100)"" Q100&95XS(100) (Q100=="S | Q100=="A | Q100=="C)JL YA ] Q100YD
  23.  
  24.     (Q100=="C)[ JO ]
  25.     "E XS(102)
  26.     21[
  27.     (.rt(#102)==2)[
  28.         EE(#102)
  29.         ((Q100=="S) & .of)[ EY ]
  30.         @EQY
  31.         ]
  32.     1XA(102)
  33.     ]
  34.     ]
  35. RI(y)"EE(z) B 2F/!START!/ 0L -#K #:$S/R*|B|Y|>// EE(@) RJ(z)"
  36. RJ(y)
  37.  
  38. !START!
  39. (Q81<>302110 & Q81<>302111)[
  40.     0XS(99)
  41.     0XS(93)
  42.     0XS(82)
  43.     1XS(83)
  44.     302110XS(81)
  45.     -1XS(80)
  46.     0XS(79)
  47.     RE(k)
  48.     RI(t)"Error in COMPILE.CNF parameter: "
  49.     +RL(u) COMPILE.CNF
  50.     EE(u)
  51.  
  52.     B :N"SUPPORTPATH="
  53.     .es[ RI(+t)"SUPPORTPATH" JP"CNFERROR" ]
  54.     .pXBB :$N"|{|B,|>}" .es[ JP"CNFERROR" ]
  55.     -(.n+1)C $EM"\" .er[ C I"\" ]
  56.     .bb,.pRC(p) -XBB
  57.     .ed[ RE(p) ]
  58.  
  59.     0XS(101)
  60.     "NXS(100)
  61.     (.sd==3)[
  62.     B :N"COLORDISPLAY=" .cXS(100)
  63.     .es[ 1XA(101) RI(+t)"COLORDISPLAY" ]
  64.     (Q100=="?)[
  65.         YEC YEN
  66.         YT"Do you have a Color display on your computer (Y/N)? "
  67.         [ XK(100)"" Q100&95XS(100) (Q100=="Y | Q100=="N)JL YA ] Q100YD
  68.         ]
  69.     (Q100=="N)[ YYM ]
  70.     ]
  71.  
  72.     (Q100=="Y | .ed==0)[
  73.     B :N"INCLUDECOLOR=" .vXS(87) .es[ 1XA(101) RI(+t)"INCLUDECOLOR" ]
  74.     B :N"OPTIONSCOLOR=" .vXS(88) .es[ 1XA(101) RI(+t)"OPTIONSCOLOR" ]
  75.     B :N"HELPCOLOR="    .vXS(89) .es[ 1XA(101) RI(+t)"HELPCOLOR" ]
  76.     B :N"ERRORCOLOR="   .vXS(90) .es[ 1XA(101) RI(+t)"ERRORCOLOR" ]
  77.     B :N"MENUCOLOR="    .vXS(91) .es[ 1XA(101) RI(+t)"MENUCOLOR" ]
  78.     +Q92YEA
  79.     ][
  80.     7 XS(87)
  81.     7 XS(88)
  82.     112 XS(89)
  83.     112 XS(90)
  84.     15 XS(91)
  85.     ]
  86.  
  87.     B :N"ERRORBEEP=" (.c=="Y)XS(78) .es[ 1XA(101) RI(+t)"ERRORBEEP" ]
  88.     Q101[ RI(+t)" not found" JP"CNFERROR" ]
  89.  
  90.     :ED COMPILE.VCO
  91.     ~.rv[
  92.     :ED |RpCOMPILE.VCO
  93.     ~.rv[
  94.         B :N"DEFCOMPILE="
  95.         .es[ RI(+t)"DEFCOMPILE" JP"CNFERROR" ]
  96.         .pXBB :$N"|>" .es[JP"CNFERROR" ]
  97.         .bb,.pRC(r) -XBB
  98.         ][ +RL(r) |RpCOMPILE.VCO ]
  99.     ][ +RL(r) COMPILE.VCO ]
  100.  
  101.     RR(r,j)
  102.     EE(v) B#K RG(r)
  103.     B :$N"|{|B,|>}"
  104.     0,.p-.nRC(q)
  105.     EE(u)
  106.     :ED |Rp|Rq.VCS
  107.     ~.rv[ RI(t)"Support not found" JP"CNFERROR"]
  108.  
  109.     :ED LINK.VCO
  110.     ~.rv[
  111.     :ED |RpLINK.VCO
  112.     ~.rv[
  113.         B :N"DEFLINK="
  114.         .es[ RI(+t)"DEFLINK" JP"CNFERROR" ]
  115.         .pXBB :$N"|>" .es[JP"CNFERROR" ]
  116.         .bb,.pRC(l) -XBB
  117.         ][ +RL(l) |RpLINK.VCO ]
  118.     ][ +RL(l) LINK.VCO ]
  119.  
  120.     :ED DEBUG.VCO
  121.     ~.rv[
  122.     :ED |RpDEBUG.VCO
  123.     ~.rv[
  124.         B :N"DEFDEBUG="
  125.         .es[ RI(+t)"DEFDEBUG" JP"CNFERROR" ]
  126.         .pXBB :$N"|>" .es[JP"CNFERROR" ]
  127.         .bb,.pRC(o) -XBB
  128.         ][ +RL(o) |RpDEBUG.VCO ]
  129.     ][ +RL(o) DEBUG.VCO ]
  130.  
  131.     :ED MAKE.VCO
  132.     ~.rv[
  133.     :ED |RpMAKE.VCO
  134.     ~.rv[
  135.         B :N"DEFMAKE="
  136.         .es[ RI(+t)"DEFMAKE" JP"CNFERROR" ]
  137.         .pXBB :$N"|>" .es[JP"CNFERROR" ]
  138.         .bb,.pRC(m) -XBB
  139.         ][ +RL(m) |RpMAKE.VCO ]
  140.     ][ +RL(m) MAKE.VCO ]
  141.  
  142.     EQY
  143.     ]
  144.  
  145. (Q81==302110)[
  146.     302111XS(81)
  147.     +RA(z)
  148.     JO
  149.     ]
  150.  
  151. (Q99==1)[ JP"OP-O-E-1" ]
  152.  
  153. Q82>0[
  154.     YEN XK(100)"BREAKOUT! - Press any key to continue..."
  155.     Q100=24[ -RA JO ]
  156.     0XS(79)
  157.     ]
  158.  
  159. !MAIN!
  160. +RA(z)
  161. ES 8 2
  162. ES 5 1
  163. 1RPROT(f,z)
  164. Q79>0[ JP"MAKE_LOOP" ]
  165.  
  166. 0XS(98)
  167. 1XS(82)
  168. 22085YYE
  169. .rt(g)=2[ EE(g) EQY ]
  170. .rt(h)=2[ EE(h) EQY ]
  171. .rt(n)=2[ EE(n) EQY ]
  172. .rt(u)=2[ EE(u) EQY ]
  173. .rt(v)=2[ EE(v) EQY ]
  174. RE(t)
  175. EE(@)
  176. Q80>-1[
  177.     :EZY
  178.     .u(x)>0[ EB |Rx Q80EJ .c=10[ -1c ] ]
  179.     -1XS(80)
  180. ]
  181.  
  182. RE(x)
  183. .of[
  184.     YR(x) +:EW -YR
  185.     ~.u(w)[ RR(x,w) ]
  186. ]
  187. Q83>0[
  188.     0XS(83)
  189.     +RL(y) |Rp|Rq.VCS
  190.     RR(j,r)
  191.     ]
  192. (Q86==302110)[
  193.     0XS(86)
  194.     1XS(93)
  195.     JP"OPTION-R"
  196.     ]
  197.  
  198. YWI YWB(h) 1 YWR(m) 45
  199. -V
  200.  
  201. YWS(h) Q89YEA YEC YT" Select desired option"
  202. YWS(m) Q91YEA YEC
  203. YT"      COMPILER SUPPORT Ver. 1.41"
  204. YEN YT"---------------------------------------------"
  205. YEN YT" Compiler Name.." 0XS(96) M(y)
  206. YEN YT" Compiler......." RD(r)
  207. YEN YT" Linker........." RD(l)
  208. YEN YT" Debugger......." RD(o)
  209. YEN YT" Make..........." RD(m)
  210. YEN YT" Project File..." RD(w)
  211. YEN YT" Edit File......" RD(x)
  212. YEN YT" Default Ext... Edit="
  213. EE(v) EQY 4XS(96) M(y) RT(v)
  214. YT" Proj="
  215. EE(v) EQY 5XS(96) M(y) RT(v)
  216. YT"
  217.  
  218.  E..Edit current file  S..Select compiler
  219.  N..Edit new file      O..Change options
  220.  P..Specify project    G..Goto DOS
  221.  C..Run Compiler       R..Reexamine errors
  222.  L..Run Linker         Q..Quit support
  223.  D..Run Debugger       X..Exit VEDIT
  224.  M..Run Make
  225.  Enter Letter: "
  226.  
  227. [
  228.     :XK(84)//
  229.     Q84&95XS(84) Q84=26[ JN ]
  230.     EE(v) B #K Q84EI B
  231.     $N"|{E,N,P,C,L,D,M,S,O,G,R,Q,X,}"
  232.     ~.es[ JL ]
  233.     Q78[ YA ]
  234. ]
  235. -1T
  236. YEN
  237. JP"OPTION-|Rv"
  238.  
  239. !CONTBEEP!
  240. Q78[ YA ] YEN YEB
  241. !CONTMAIN!
  242. XK(84)"Press any key to continue..." YEN
  243. JP"MAIN"
  244.  
  245. !OPTION-!
  246. 0RPROT(f,z)
  247. -RA JO
  248.  
  249. !OPTION-E!
  250. 12XS(98)
  251. ~.u(x)[
  252.     EE(v) EQY :RQ(v)" File: "
  253.     ~.u(v)[ 4XS(96) M(y) ]
  254.     RF(v) |Rv
  255.     ~.u(v)[ JP"MAIN" ]
  256.     RR(v,x)
  257.     EE(@) EB|Rx
  258.     ]
  259.  
  260. YWD(m)
  261. YWS(h) Q89YEA YEC
  262. YT"Edit file; press ESC to return to Compiler Support menu"
  263. 0XS(82) EE(@) V
  264. JP"START"
  265.  
  266. !OPTION-N!
  267. 13XS(98)
  268. EE(@)
  269. .oa[
  270.     YT" Save current file (Y/N)? "
  271.     #[
  272.     XK(84)"" Q84&95XS(84)
  273.     Q84="Y[ YT"Y" :EY JL ]
  274.     Q84="N[ YT"N" EZY JL ]
  275.     Q78[ YA ]
  276.     ]
  277.     YEN
  278. ][
  279.     EZY
  280. ]
  281. RE(x)
  282. JP"OPTION-E"
  283.  
  284. !OPTION-G!
  285. :RQ(i)" DOS Command: "
  286. .u(i)>0[
  287.     YWS(@) YEB -YWZ
  288.     @OC"|Ri"
  289.     ][
  290.     YWI    .sl-1YEV
  291.     OS
  292.     ]
  293. JP"MAIN"
  294.  
  295. !OPTION-X!
  296. -:EK |RkVCS.TMP
  297. YWI
  298. EE(@) .oa[
  299.     Q78[ YA ] YEN
  300.     YT"The Edit File has not been saved! Do you want to save it?" 2YEN
  301.     YT"[S]ave file; [A]bandon file; [C]ancel, return to main menu : "
  302.     [ XK(100)"" Q100&95XS(100) (Q100=="S | Q100=="A | Q100=="C)JL Q78[ YA ] ] Q100YD
  303.  
  304.     Q100="C[ JP"MAIN" ]
  305.     Q100="S[ EY ]
  306.     Q100="A[ EQY ]
  307.     ]
  308.  
  309. (.rt(a)==2 | .rt(b)==2 | .rt(c)==2 | .rt(d)==2) [
  310.     Q78[ YA ] YEN
  311.     YT"Registers A - D may contain files. Do you want to Save them?" 2YEN
  312.     YT"[S]ave files; [A]bandon files; [C]ancel, return to main menu : "
  313.     [ XK(100)"" Q100&95XS(100) (Q100=="S | Q100=="A | Q100=="C)JL Q78[ YA ] ] Q100YD
  314.  
  315.     Q100="C[ JP"MAIN" ]
  316.     .sl-2YEV YT"VEDIT - Compiler Support" YEN
  317.     Q100="S[ EXA ]
  318.     Q100="A[ EQAY ]
  319.     ]
  320.  
  321. .sl-2YEV YT"VEDIT - Compiler Support" YEN
  322. EQAY
  323.  
  324. !OPTION-Q!
  325. YWD(m) YWD(h)
  326. -:EK |RkVCS.TMP
  327. EE(s) EQY EE(v) @EQY
  328. ES 8 0
  329. 0XS(81)
  330. 0RPROT(f,z)
  331. 0YYE
  332. -RA
  333. RI(y)"EE(z) @EQY +JO"
  334. RJ(y)
  335.  
  336. !OPTION-P!
  337. 14XS(98)
  338. 0XS(93)
  339. EE(v) EQY :RQ(v)" File: "
  340. ~.u(v)[ 5XS(96) M(y) ]
  341. RF(v) |Rv
  342. ~.u(v)[ JP"MAIN" ]
  343. :ED |Rv
  344. ~.rv[
  345.     YEN YT" Project file not found!"
  346.     JP"CONTBEEP"
  347.     ]
  348. RR(v,w)
  349. ~.u(x)[
  350.     RR(w,x)
  351.     EE(@) EB|Rx
  352.     ]
  353. JP"MAIN"
  354.  
  355. !OPTION-R!
  356. 25XS(98)
  357. Q93=0[
  358.     YEN YT" Errors unavailable!" YEN
  359.     JP"CONTMAIN"
  360. ]
  361. YWD(m)
  362. JP"OP-C-COMM"
  363.  
  364. !OPTION-S!
  365. 16XS(98)
  366. EE(v) EQY
  367. .wl-1YEV YEL
  368. :RQ(v)" (Do not include path or .VCS extension)
  369.  Compiler: "
  370. EE(u) B #K RG(v) B $N"|{:,\,.}"
  371. ~.es[
  372.     YEN YT"Paths and extensions not allowed!"
  373.     JP"CONTBEEP"
  374.     ]
  375. ~.u(v)[ RI(v)"*" ]
  376. RF(v) |Rp|Rv.VCS
  377. ~.u(v)[ JP"MAIN" ]
  378. :ED |Rv
  379. ~.rv[
  380.     YWS(m) YEN YT" Specified compiler not found!"
  381.     JP"CONTBEEP"
  382.     ]
  383. EE(v) B
  384. $N"|{ ,.,|>}" -.nC #D
  385. Z -$N"|{\,:,|<}" .nC 0K
  386. EE(@)
  387. RR(v,q)
  388. :ED |Rq.VCO
  389. ~.rv[
  390.     :ED |Rp|Rq.VCO
  391.     ~.rv[ RI(r)"|Rq -proj.ext"
  392.     ][
  393.     +RL(r) |Rp|Rq.VCO
  394.     ]
  395.     ][
  396.     +RL(r) |Rq.VCO
  397.     ]
  398. EE(u) B #K
  399. RG(r)
  400. B .pXBB N"|>" .bb,.pRC(r)
  401. L .eofJP"OPTION-S-1"
  402. .pXBB N"|>"
  403. (.p>.bb)[ .bb,.pRC(l) ]
  404. L .eofJP"OPTION-S-1"
  405. .pXBB N"|>"
  406. (.p>.bb)[ .bb,.pRC(o) ]
  407. L .eofJP"OPTION-S-1"
  408. .pXBB N"|>"
  409. (.p>.bb)[ .bb,.pRC(m) ]
  410.         
  411. !OPTION-S-1!
  412. -XBB
  413. RR(r,j)
  414. 1XS(83)
  415. 0XS(93)
  416. JP"MAIN"
  417.  
  418. !OPTION-O!
  419. 20XS(98)
  420. 0XS(99)
  421. YWD(o)
  422. YWS(m) Q91YEA YEC
  423. YEN YT"           Change Options Sub-menu"
  424. YEN YT"---------------------------------------------" YEN
  425. YEN YT" Compiler Name.." 0XS(96) M(y)
  426. YEN YT" Compiler......." RD(r)
  427. YEN YT" Linker........." RD(l)
  428. YEN